FINI
/CLE
/FILENAME,E411
/TITLE,TOWER
TOWER						!TOWER꣬ģ
FINI							!˳ǰ
!******************************
/SOLU
ANTYPE,2					!÷Ϊģ̬
MODOPT,SUBSP,10			!ģ̬ΪSUBSPACE
MXPAND,10,,,1				!ģ̬չ10
LUMPM,ON					!
ACEL,0,9.8,0					!ٶ
ALLS						!ѡеԪ
SOLVE						!
SAVE						!
FINI							!˳SOLU
!******************************
FINI
/POST1
FILE,'E411','RST'			!ļ
SET,LIST						!гƵ
SET,1,1						!ȡ1
PLDI							!ʾ1ױΣͼ4-25ʾ
ANMODE,10,0.5,,0				!1׶
SET,1,3						!ȡ2
PLDI							!ʾ2ױΣͼ4-26ʾ
ANMODE,10,0.5,,0				!2׶
SET,1,5						!ȡ3
PLDI							!ʾ3ױΣͼ4-27ʾ
ANMODE,10,0.5,,0				!3׶
SET,1,7						!ȡ5
PLDI							!ʾ5ױΣͼ4-28ʾ
ANMODE,10,0.5,,0				!5׶
